home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS082.dsk / POKE 33.SOURCE.txt < prev    next >
Text File  |  2012-02-16  |  705b  |  33 lines
  1. *THIS ROUTINE TOGLES SCREEN WIDTH OR SELECTS ALTERNATE
  2. *AMPERSAND ROUTINE IF APPROPRIATE
  3.  ORG $300
  4. DATAN EQU $D9A3
  5. HOME EQU $FC58
  6. AMP EQU $3F5
  7. DOS EQU $3D0
  8.  LDA AMP+1 ;GET PRESENT AMPERSAND VECTOR
  9.  STA PASS ;SAVE IT
  10.  LDA AMP+2
  11.  STA PASS+1
  12.  LDA #>START ;GET START OF ROUTINE AND  
  13.  STA AMP+1 ;PUT IT INTO AMPERSAND VECTOR
  14.  LDA #<START
  15.  STA AMP+2 
  16.  JMP DOS ;EXIT SETUP ROUTINE  
  17. START JSR DATAN ;ANYTHING AFTER & ?
  18.  CPY #0
  19.  BEQ FLIP ;NO, THIS ONE'S FOR ME !
  20.  JMP (PASS) ;YES, CONTINUE ELSEWHERE
  21. FLIP LDA 33 ;WHERE ARE WE ?
  22.  CMP #40
  23.  BEQ FLOP ;OTHER WAY
  24.  LDA #40 ;SET STANDARD WIDTH
  25.  STA 33
  26.  RTS  ;AND EXIT
  27. FLOP JSR HOME ;CLEAR SCREEN
  28.  LDA #33 ;SET SCREEN WIDTH TO EDIT SIZE
  29.  STA 33
  30.  RTS
  31. PASS DS 2 
  32.  LST OFF
  33.